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The VAX-11 MACRO assembler trans 
modules for input to the VAX-11 
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v03-004 MTROO35 Mike Rhodes Aug-1985 
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blank psect has been removed. 
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v03-003 wTRees? Mike Rhodes 22-Apr-1983 
Allow the removal of the blank psect if it is not referenced. 
v03-002 mTROO31 Mike Rhodes 19-Apr-1983 
3 Remove obsolete reference te SMAC_TIRCMDDEF bacte. 
0 v03-001 mTROO25 Mike Rhodes 8-Feb-1983 
Modify routines PRT *pseer SYNOP, Py CROSS_REF, PRT_RUN_TIM, 
PRT nla STATS, CREF-TREE_OUT, and NEQ_SBT_Ck PAGE to write 
individual data records Tnstead of “having” inBedced carriage 
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984 EMACRO- SRC IF INISH-MAR; 1 
v03.00 preyyes Mike Rhodes 15-Mar-1982 
Modify routine MACSDBG.. PSECT to write a Position 
fa rs nag re. Data Reference (TIRSC_STO_PIDR) instead 
e Store Long Word (TIRSC_STO_LW)? 
PCG6003 Peter George 07-May-1981 


Create bug which causes global symbols that have 
been suppressed from the symbol table to have their 
global symbol records suppressed. 


PCG0001 Peter Ge sores 06-Feb-1981 
Filter out creation of PSECT DST if ABS specified. 
CNHOO35 Chris Hume 12-Jun-1980 


Prevented extraneous symbols at the end of two column (31 


character) sie table output. 


RNOO22 ewland 31-0ct-1979 
Translate SYSSLPY LINES to set Lines/page 
RNOO13 ewland 27-Sep-1979 
Use new symbols oly PSECT options processing 
RNOO11 R. Newland 11-Sep-1979 
New Librarian support 

RNOOOS8 R. Newland 29-Aug-1979 
31 character symbols 

RNOOOS R. Newland 13-Aug-1979 
Variable symbol name storage 

RNOOO2 R. Newland 01-Feb-1979 


ener for Source Update Merge, information messages 
count and Line number format 


BLS21346 B. Schreiber 29-DEC-1978 
Remove restriction that symbol must be referenced 
and not absolute to be output to debugger. 
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00 
MACRO. SRCJFINISH.MAR; 1 
.SBTTL DECLARATIONS 
t INCLUDE FILES: 


. 
° 


jolololo) 


MACROS: 

| 
$MAC oS VOB KOEF + SYMBOL BLOCK 1 le ses 
SMAC_MLFDEF Define MLF offset 
SMAC_GENVALDEF ‘GENERAL VALUES 
SMAC_CTLFLGDEF ;CONTROL FLAGS 
SMAC_CRFLAGDEF sDEFINE CREF CONTROL FL 
SMAC- OBJCODDEF ;DEFINE OBJECT CODE COMMANDS 
$F ABBEF DEFINE FAB OFFSETS 
SCRFDEF ; Define CRF offsets 


| 
; LOCAL SYMBOLS | 


SOOO OCSCOOOOCOOSOSCONNNNOOOOOOOOOOoOO perth 
COOCCCOCOOCOOCOC COON NNNOOCOOCOOOCOOOO 


SCOOoooooooooooo°o]———-Do0o0c0o0o 


SOSOSCOCOOOOCOSOSOOSOSSSOSSOSOSOSOSOOOOOOOOO OOOO OOOOOOOOOOoOO 
FW O ODNOAU EWN $9 OD NONE WIN S$ O OONOA UE WWI CO OONOAUE Wh 
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BEE ES WWWIWIWIWIII I anononononononononons 2 2 2 Ss DOOD OOOO 


_— tt tt Ps — — 1 ss — = — 2 ss 9s 9 2 os a 1s os — + 3 ss ss 


00000088 DBGSC_PSECT = 184 :PSECT NAME C1oT Ton ENTRY LENGTH) 
000000BA DBG$C_ SYMBOL 2 186 ;SYMBOL NAME (1+74N 
0000008C DBG$C_ MODULE = 188 [MODULE NAME (1a73N) 
0000008D DBGS$C_MEND = 189 ‘MODULE END (141) 
000000BE DBG$C_ROUTINE = 190 : ROUT INE NAME (1e74N) 
00000000 DBGSC_LIT_DAT = 0 SLITERA 
00000001 DBGSC_REL_DAT = 1 SRELOCA FABL Man ATA 
0000000C 0000 BGSK_PSECT_LEN = 12 ; CONSTANT LENGTH OF PSECT ENTRY | 
00000008 0000 DBGSK_SYMBOC_LN = 8 :CONSTANT LENGTH OF SYMBOL ENTRY 
00000008 0000 DBGS$K-MODULE-LN = 8 ‘CONSTANT LENGTH OF MODULE ENTRY | 
00000002 0000 DBG$K-MEND LEN = 2 ;CONSTANT LENGTH OF MODULE END ENTRY 
00000008 Bee DBGSK_ROUTIN_LN = 8 CONSTANT LENGTH OF ROUTINE ENTRY 

000 : 

000 ; LOCAL DATA 

$00 

0000 900 -PSECT MACSRW_DATA,NOEXE,LONG | 

000 MACSG_ERRBFDES:: TO FAO THE ERROR LINE #'S 
00000000" 0000 .LONG  MACS$AB _LINE_END=MACSAB_ Lg END ;SIZE OF BUFFER 
00000000 0004 “TONG 0 >FILLED IN WITH ADDRESS 
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v04- MACSSORT_TABLE SORT SYMBOL TABLE ALPHABE | -SEP=-1984 BF: :48:10 ERACROSRe FINISH.MAR; 1 ° dh vO 
0 146 .SBTTL MACSSORT_TABLE SORT SYMBOL TABLE ALPHABETICALLY | 
198 p++ 
169 3 FUNCTIONAL DESCRIPTION: 
134 ; THIS ROUTINE WILL SORT THE SYMBOL TABLE INTO AN ALPHABETIC | 
99 13¢ ; LINKED LIST. | 
0 153; 
99 154 : INPUTS: 
00 135 ; 
0008 1 $ : R9 SYMBOL HASH TABLE ADDRESS | 
B88 13f ; RB SYMBOL HASH TABLE SIZE 
B38 122 3 OUTPUTS: 
9008 161 : MACSGL_LINK_PTR POINTER TO LINKED LIST OF SYMBOLS 
888 196 : 
0008 1635 ;-- 
99 164 
000000 165 -PSECT MACS$RO_CODE_P3,NOWRT,GBL,LONG 
00 167 MACS$SORT_TABLE: 
Q000'CF 9F 00 168 BUSHAB W*MAC$GQ_RNT_SRT ;STACK TIME BLOCK ADDRESS 
OO0O'CF 01 FB 00 189 CALLS #1,W*MACSTIMER_ON ‘BEGIN TIMING SYMBOL TABLE SORT 
09 4 : THE FIRST STEP IS TO REMOVE ALL EMPTY SUBLIST LISTHEADS FROM THE TABLE | 
57 59 00 00 138 MOVL  R9,R7 :COPY TABLE ADDRESS 
56 57 pO 00 174 MOVL R7,R6 or 
87 dS 00 175 10S: TSTL (R?)+ iLIST HEAD EMPTY? | 
06 13 00 176 BEQL 208 :IF S 
86 FC AZ 00 00 177 MOVL =4(R7),(R6)+ ‘NO-CROV VE THE LISTHEAD ENTRY 
F558 =F5 00 178 20$: SOBGTR R8,10$ :SCAN ALL ot ist HEAD 
Q000'CF D4 00 179 LRL WeRACSGL LINK_PTR ASSUME NO ENT Ries: 
55 56 59 ¢3 00 180 SUBL3 R9,R6,R :CALCULATE SIZE OF TABLE IN BYTES 
03 12 00 181 BNEQ SORT_LISTS {BRANCH IF THERE ARE SOME ENTRIES 
OOCE 31 00 188 BRW SORTEXIT sELSE GO EXIT 
00 184 > NEXT, WE SORT THE SUBLISTS SUCH THAT THE FIRST SYMBOL IN EACH SUBLIST 
00 185 : IS LESS THAN THE FIRST SYMBOL OF THE SUCCEEDING SUBLIST. 
. 00 187 SORT_LISTS: 
58 $9 «6000 «(00 1 8 MOVL R9,R8 :COPY TABLE ADDRESS | 
57 8 DO 00 18 10$ MOVL  (RB)+,R7 GET ADDRESS OF NEXT SYMBOL 
56 D1 190 CMPL = RB ;ANY MORE LISTHEADS IN TABLE? | 
30 13 00 191 BEQL MERGE_LISTS :1F EQL NO 
55 68 00 99 198 MOVL (RB [GET ADDRESS OF NEXT | 
50 04 A7 9A 00 19 HOVZBL SYNE _NAME(R7) ,RO : Get offset to name 
36 7 3 ¢ 194 SUBL RO,R7,R ; and form address of count/name 
52 + 9A 195 MOVZBL (RO)+,R ; Get count and advance pointer to name 
51 O4A 9A 196 ae SYMSB_NAME(R5),R1 ; Get offset to name 
51 . C3 00 197 SUBL R1,R Rh ; and form address of count/name 
53 3) 9A 00 198 tS (R1)+°R ; Get count and advance pointer to name 
61 53 00 60 g @D 199 CMPCS, R tROe #0,R3, (R1) : Compare @ | symbo mbols 
F 0 BLSSU 108 [IF LSS THEN ORDER CORRECT 
68 7 p0 1 MOVL  _R7, (RB) SINVERT LISTHEAD ENTRIES 
5 D 2 MOVL R5,-(R8) te 
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v06= MACSSORT_TABLE SORT SYMBOL TABLE ALPHABE SEP=1984 01:48:10 YRACRO- SRCIJFINISH.MAR; 1 (3) 
59 58 01 59 3 CMPL Rg RO yAT FRONT OF LISTHEAD TABLE? 
5 13 C i BEQL «=s.«100$ SIF EQL YES 
D5 5 5 TSTL  =(RB) ‘NO=-BACKUP ONE ENTRY 
C 11 06 06 BRB 10$ 
Og o8 ; NOW MERGE THE SUBLISTS INTO ONE MASTER SORTED LIST 
06 10 MERGE_LISTS: 
58 0000'CF 9E 06 11 MOVAB WeMACSGL_ LINK_PTR,R8 :POINT TO MERGE LISTHEAD 
57 59 00 006 19 MOVL :COPY LISTHEAD TABLE POINTER 
55 B87 00 006A 213 10S: MOVL Passe, R5 [GET ADDRESS OF NEXT SYMBOL 
93 1 88 D 14 BNEQ es ; If NEQ more in this My a 
007¢ 3 00 F 13 a BRW 70$ 
2c 09 AS) «=606~—CO*EO 0072 17 BBS #SYMSV_LOCAL,SYMSW_FLAG(RS),20$ ;BR IF LOCAL SYMBOL 
OA 09 AS 09 EO 007 18 BBS #SYMSV-DEF ,SYMSW_FCAG(R5),15$ :BRANCH IF DEFINE 
0509 a5 03 €0 O007¢ 219 BBS #SYMSV-EXTRN, SYMSW_FLAG(R5) ,15 5$ BRA ncn IF DECLARED EXTERNAL 
2109 a5 O07 €1 0081 20 BBC #SYMSV-REF ,SYMSW_FCAG(RS) , 308 gBRANCH IF NOT REFERENCED 
0086 31 : (SYMBOL WAS USED IN .NTYPE DIRECTIVE 
0086 ; ‘AND WAS NOT REF. OTHERWISE) 
OO00'CF 06 0086 15$: INCL  W*MACSGL_SYM_NLOC :COUNT NON-LOCAL SYMBOL 
68 55 00 Q08A 4 MOVL R5,SYMSL-LINR(R8) ; Link new symbol to old Last 
58 55 00 0080 5 MOVL R5,RB sMAKE NEW LAST SYMBOL 
9090 ; IF ENABLE GLOBAL AND SYMBOL IS UNDEFINED, DECLARE IT EXTERNAL NOW. 
10 00000005'EF £9 0090 229 BLBC L*ENB$G_GLOBAL+SYMSL VAL 3 :. :BRANCH IF DISABLE GLOBAL 
0809 AS) «(00 «CEO «(0097—~—Ss 230 BBS #SYMSV_DEF ,SYMSW_FLAG(RSS BRANCH IF SYMBOL DEFINED 
0609 AS «4(03)~«C ES: «(009C:~— 231 BBCS  #SYMSVIEXTRN,SYMSW_FLAG(RS), is TY :DECLARE SYMBOL EXTERNA! 
04 11 OOAI 2 BRB 30$ :G0° AHEAD 
Q000'CF D6 O00A3 3 20s: INCL  W*MACSGL_SYM_LOCL ; COUNT A LOCAL SYMBOL 
77 =6©—65)—s—siéi#Ds«éCOA 4 30$: MOVL SYMSL_LIAK(RS) ,-(R7) 3; Remove symbol from List 
02 if OOAA 235 BNEQ 40$ [IF NEQ THEN MORE IN LIST 
87 05 OOAC $ TSTL (R7)+ TADVANCE LISTHEAD POINTER 
56 57 01 OOAE 40S: CMPL  R7,R6 ZANY MORE SUBLISTS TO CONSIDER? 
40 13 0081 8 BEQL = B0$ SIF EQL NO 
7E 57 7D 00B3 239 MOVQ  =R7, =(SP) [SAVE MERGE PARMS (R7/R8) 
58 87 DO 00B6 240 50S: MOVL (R?7)+,RB GET ADDRESS OF FIRST SUBLIST ENTRY 
56 «557)—So=D1s«00B9 Ss 241 CMPL  —R7,R6 ANY MORE SUBLISTS TO CONSIDER? 
2a «613—=«O0BC 4@ BEQL SIF EQL NO 
55 67 00 OOBE 24 MOVL (R7),R5 YESS RET ADDRESS OF FIRST SUBLIST ENTRY 
50 04 As 9A OC) 44 MOVZBL SYM$B_NAME (RB) ,RO : Get offset to first name 
3° SS > C3 00C5 45 SUBL RO,R8,RO ; and form address of count/name 
52 80 9A O0C9 $6 MOVZBL (RO)+,R2 3; Get count and advance pointer to name 
51 04 A5 9A OOCC 4 MOVZBL BYROG ROME (RS) .81 ; Get offset to second name 
51 Ss 3) C3 00D0 48 SUBL R ; and form address of count/name 
53 81 9A 00D4 49 MOVZBL cs )+,R3 ; Get count and advance pointer to name 
61 53 00 60 52 2D 00D7 250 CMPCS (RO) ,#0,R3, (R1) : Compare symbols 
09 1F OODD 251 BLSSU é s1F LSS ORD R CORRECT 
67 : D0 ODF 3g MOVL RB, (R7) ;SWAP SUBLISTS 
FC A? «6©6555)=—=— 0s s00E2~—és 85 MOVL R5.-4(R7) 
Pa eG 54 BRB o$ CONT INUE 
57 8& 7D OOE 55 60S: mova (SP)+,R7 SRESTORE MERGE PARAMETERS (R7/RB) 
FF ¢ 31 OOEB 2$ $38: BRw 198 : Continue 
56 57 «OT OEE 0S: CMPL = RT, RO TANY MORE SUBL STS TO CONSIDER? 
F8 12 OF 38 BNEG 65% : If NEQ yes 
6 D4 F3 80$: CLRL SYMSL_LINK(R8) ; Clear foruard Link of Last entry 
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SORT_EXIT: 
3 PUSHAB W*MACS$GQ_RNT_SRT sSTACK TIMING BLOCK ADDRESS 
Fe i #1,W°MACSTIMER_OFF :STOP TIMING SYMBOL TABLE SORT 
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-SBTTL MACSFINISH_ASM OUTPUT TRACEBACK, DEBUG INFO 


p++ 
; FUNCTIONAL DESCRIPTION: 


5$: 


10$: 


20$: 


40$: 


THIS ROUTINE IS CALLED AT THE END OF THE ASSEMBLY TO FINISH 
THINGS UP. IF ENABLED, TRACEBACK AND DEBUG INFORMATION IS 
OUTPUT TO THE OBJECT FILE. THE SYMBOL TABLE LISTING IS PRINTED. 

SHR #*M<R7,RB,R9> ; SAVE REGISTERS 

CLRL = R?’ SRESET STACK POINTER 

BBS #FLGSV_OBJXST,(R11),5$ ; Branch if there is an object file 

BRW 85$ : No object file 

BLBC rr ta TRACEBACK +SYMSL VAL,85$ ; Branch if disable traceback 

MOVZBL #OBJ$C_TBT,W*MACSGL_RECTYP “TRACEBACK RECORD TYPE 

BSBW MASUR RTOBJ WRITE OUT LAST TIR RECORD 
MOVAB W*MACSAB_TITLE.RS [POINT TO TITLE STRING 

TSTB ss (RS) :WAS TITLE SUPPLIED? 

BNEQ 10$ :1F NEQ YES--GO USE IT 

MOVAB L“MACS$AB_DEF_TITL,RS POINT TO DEFAULT TITLE STRING 
ADDB ERs). #DBG$K_MODULE_LN-1, RO :FIGURE LENGTH OF ENTRY 

BSBW  MACS$STOIM “TSTORE INTO OBJECT CODE 

MOVZBL abacét MODULE ,RO [MODULE NAME 

BSBW MACSSTOIM :$10 

MOVZBL a5 cRe “SET A 

CLRL oR ‘STRUCTURE PLEVEL "AN "MACRO? (?) 
SBW MACSSTOIM 

SOBGTR R4.20$ 700 5 

MOVZBL (R5)+,R4 [GET CHARACTER COUNT 

MOVL :COPY TO STORE IT 

BSBW MACSSTOIM 

MOVZBL (R5)+,RO :GET CHAR OF TITLE 

BSBW  MACSSTOIM :STORE IMMEDIATE 

SOBGTR R4,40$ 


; SEARCH SYMBOL TABLE AND EMIT ENTRY POINTS TO THE DEBUGGER 


60$: 


70$: 


MOVL W*MACSGL_LINK_PTR+SYMSL_LINK,R6 ; Point . Linked symbol List 
BEQL 808 “IF €QL THERE IS NO LIST 


BBC #SYMSV_EPT syns FLAG(R6S, 708 BRANCH IF NOT 
MOVZBL SYMS$B_RAME(R6 : offset to name 
SUBL RO : — address of count/name 
ADDB #0BGSK sate sta : Figure length of entry 
; putting result in RO 
BSBW MACSSTOIM 
MOVZBL #DBG$C_ROUTINE,RO s TYPE 
BSBW MACSSTOIM 
CLRL = RO ;ZERO BYTE 


BSBW MACSSTOIM 

BSBW MACS$DBG_VAL_OUT 
BSBW MACSDBG_NAM”~ OUT :0urP TN 

MOVL SYMSL_LINK(R6) .R6 Link to next symbol 

BNEQ 608 iF THERE IS ONE, GO PROCESS IT 


;OUTPUT ADDRESS 
UT NAME 
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5$: MOVL 
BEQL 


BBC 
BBC 


{00s: B1sw2 


MOVZBL 
BSBW 
BSBW 
BRB 


1108:  MOVZBL 
BSB 


W 
VAB 
MOVZBL 
1208: MOVB 
BSBW 
SOBGTR 
: : OUTPUT SYMBOL 
130$:  BSBW 
140$:  MOVL 
BNEQ 
150$:  B6BC 
BLBC 
MOVZBL 
SBW 


~SEP=1984 
, DEBUG “ty ~3Ep-19 


BACK HERE FOR EACH SYMBOL IN THE LIST 

MOVZWL SYMSW_FLAG(R6) .R3 
#SYMS$U_DEBUG, RS, 140$ 

a YMSV" “DEF RS, 140$ 

; SYMBOL HAS DEBUG ATTRIBUTE AND IS DEFINED. 


#SYMSM ~00BG YM$W FLAG(R6) 


#SYMSV_E 
#FLGSV" BBJkST. 


: be 13: 6 AX/VMS Macr 


EMACRO. SRC IF 


: oUPTuT LABLES AND REFERENCED SYMBOLS FOR DEBUGGER 
hos: poyze. rete tls af »W*MACSGL -RECTYP ; SET peeve RECORD T 


YPE 
sWRITE OUT THE TRACEBACK RECORDS 
WeMACSGL LINK_PTR,R6 LIST AGAIN 


;POINT TO SYMBOL 


IF EQL THERE IS NO LIST 


;GET FLAGS FOR SY 


MBOL 
;BRANCH IF NO ore ATTRIBUTE 
;BRANCH IF NOT DEFIN 


F THIS IS 


(R11),140$° ;BRANCH IF THERE IS N ECT Pit E 
IF DISABLE TRACEBACK 


L“ENBSG G TRACEBACK*SYMSL -VAL, 140$ ;BRANCH 


SYRSB. NAME ( 


RO,ROOR 
#OBGSK Peg 
RO) ,RO 


MACSSTOIM 
#0BG$C_SYMBOL,RO 


MAC 
#SYMSV_ABS,R2,110$ 
: SYMBOL IS RELOCATABLE 


#0BGS$C_REL_DAT,RO 
MACSSTOIM 

MACSDBG. VAL OUT 

130$ 


; SYMBOL IS ABSOLUTE 


#DBGSC_LIT_DAT,RO 
MACSSTOIM 

wert te _VAL(R6) RS 
a4, Re” 

nacbsfgun 


NAME 


MACSOBG_NAM_OUT 
syest. LINK(R6) ,R6 


: OUTPUT PSECT NAMES AND END OF MODULE 


; Get offset to name 

Form address of count/name 
Figure length of entry 
putting result in RO 


ASSUME A_LABEL 
; STORE INTO OBJECT 


ODE 
;BRANCH IF SYMBOL 1§ ABSOLUTE 


sRELOCATABLE DATA 
;OUTPUT SYMBOL ADDRESS 


LITERAL DATA 
:POINT TO SYMBOL VALUE 
:LOOP_ COUN “i 


:GET BYTE 0 


LUE 
; STORE INTO. OBJECT CODE 


: SEND NAME TO OBJECT FILE 
3; Link to next symbo 


jBRAN CH 

#FLGS$V_OBJXST, (R11), PRINT SYM TABL 
LEN $6 TRACEBACK +SYMSL VAL, PRINT SYA 
esc Tat, »W*MACSGL -RECTYP > SET 


;SET peeve OUTPUT FLAG FOR Mae 
ANCH wn TRY POIN 


SKI 
FOR TRACEBACK RECOR 
WRITE out DEBUG RECORD 


K 8 
MACSF INISH ROUTINES FOR FINISHING ASSEMBLY 16=SEP p- 1984 02:15:54 AX/VMS Macro V04-00 Page 
v04=0 MACSFINISH_ASM OUTPUT TRACEBACK, DEBUG 15-SEP-1984 01:48:10 CMACRO.SRCJFINISH.MAR; 1 
E 79 ; 
56 OO000'CE 9€ 8 oF 80 MOVAB wW*PSECTSBLANK,R6 “BLANK PSECT 
03 09 A6 07 7 021 1 BBC #SYMSV_REF ,SYMSW_FLAG(R6S,155$ ;HAS IT BEEN REF'D? 
0677 30 0218 Be BSBW = MACSDBG_PSECT :YES, OUTPUT INFORMATION 
56 0000'CF 09 1 155$: MOVL  W*MACSGC_PSC_LIST.R6 GET FIRST PSECT ADDRESS 
Op 1 i BEQL 170$ [IF EQL NONE 
03 OD A6 e1 5 160$: BBC #PSCSV_REL SSUPPRESS ABS PSECTS 
: PSC$W V OPTIONS (RO), 165$ 
0668 30 4 BSBW  MAC$DBG_PSECT ; OUP TUT IN FO 
56 6 8 A 8 165$ MOVL YMSL_LINK(R6) ,R6 3 Link next symbol 
fs. D BNEQ 608 TIF NEO. THERE 1§ YRORE 
50 01 9A F 0 170$:  MOVZBL :STORE LENGTH 
FDCB' 30 : 9 BSBW RALSSIOIN 
50 BD 8F 9A 36 MOVZBL #DBG C_MEND,RO :MODULE END 
FDC4" 0 9 39 BSBW | MACS$STOIM 
FDC1" C 39% BSBW  MACSWRTOBY :WRITE OUT FINAL TRACEBACK RECORD 


MACSF INISH ROUTINES FOR FINISHING ASSEMBLY Ig- SEB-1984 02:15:54 AX/VMS Macro V04-00 Page 19 
v04-0 PRINT SYMBOL TABLE IN ALPHABETICAL ORDER 9-SEP-1984 01:48:10 LEMACRO.SRCIFINISH. MAR; 1 (5) | 
F396 .SBTTL PRINT SYMBOL TABLE IN ALPHABETICAL ORDER | 
F 98 PRINT_SYM_TABLE: | 
SA DD F 39 POSHL R10 ;SAVE INT. BUFFER POINTER 
03 68 09 0 0241 400 #FLGSV_LSTXST,(R11),10$ :BRANCH IF THERE IS LISTING FILE | 
5 3 45 401 BRW R SUM 7NO=-GO SEE ABOUT ERROR SUMMARY | 
0000'CF OF 0248 4 ¢ 10S: PUSHAB W*MACSGO_RNT_P2 SSTACK TIMING BLOCK ADDRESS 
0000' CF 1 FB 026C 4 CALLS #1,W°MACSTIMER OFF :STOP TIMING PASS 2 NOW 
F O°*F 51-404 PUSHAB W*MAC$GQ_RNT ST sSTACK TIMING BLOCK ADDRESS 
0000'CF 1 FB 55 = 405 CALLS #1,W*MACSTIMER_ON s;BEGIN TIMING SYMBOL TABLE OUTPUT | 
0000" CF 1 9A 025A 4 5 MOV2BL #1,W°MACSGL_LIST_LVL | :FORCE SYMBOL TABLES TO LIST | 
p4 a CLRL 7° PRESET STACK POINTER 
50 Q0000000'EF 9E& 0261 408 MOVAB L‘MACSAB_STB_MSG,RO ‘POINT TO *S ynBoL TABLE'’ STRING 
0 9A 0268 409 MOVZBL (RO)+,R :GET ITS LENGTH 
0048 8F 20 60 51 2C 0268 410 MOVCS R1,(R6),#*A/ /, = : Copy into subtitle buffer 
00000000' EF 027 
77411 #LSTSK TITLE _f]zesvnac -MAXLEN#1 
77 41g ACSAB_SBT~iDNT (OVER {D DENT yin SUBTITLE) 
Q000'CF DS 0277 41 CLRL W*MACSGL LOTR FLG ~ CLE R new PAGE OUTPUT FLAG 
SA O000'CF DO O27B 414 MOVL W°MACSCL “LINK LE TROSYMSL LINK, amo gint to o syabol list 
03 12 0280 415 BNEQ 208 “SIF 66 PRINT 
00C7 31 0282 416 BRW ‘it see AL LL DONE HERE 
0000'CF 06 0285 417 20S: INCL U HKESOL DIRFLG 7SET NEW PAGE OUTPUT FLAG 
0289 418 PRT_SYM_LOOP: 
FD74" 30 0289 419 W  MACSLST_PAG_HDR ;SKIP TO NEW PAGE 
58 SA dO de8¢ 420 MOVL  R10,R8 :POINT TO, SYMBOL 
55 O000°CF DO O28F 421 MOVL W*MACSGL_LN_PAGE ,R5 i_Lines of syabols/page 
58 D5 0294 4 : 10$: TSTL = RB SEND OF LIST 
14 13 0296 4 BEQL 208 :IF EQL YES 
55 D5 0298 424 TSTL = R'S SNO--END OF PAGE? 
10 15 029A 425 BLEQ SOs [IF LEQ YES 
05 09 AB «(OE OEW «(029C «= 426 BBC #SYMS :BRANCH IF NOT SUPPRESSED SYMBOL 
O2A1 427 SYMSW VFLAGCRB) , 15$ 
58 68 DO 02A1 428 MOVL § SYMSLILINK(R8).R8 : LINK TO NEXT SYMBOL 
EE 11 O2A4 499 BRB :TRY AGAIN 
58 68 DO 02A6 430 15$:  MOVL SYMSL_LINK(R8).R8 :NOT SUPPRESSED, LINK TO NEXT SYMBOL 
£855 F4 O2A9 431 SOBGEQ R5,10 :COUNT AND 
55 QO00'CF 00 BgAt $36 208: MOVL W*MACSGL_LN_PAGE,R5 Lines of symbol s/page | 
1B 68 gf EO 0281 43 BBS #FLGSV_SYM2TOL, (R11), 408° yp. if umn Listing 
59 58 DO 0285 434 MOVL  R8,RO ~ RB POINTS TO FIRST SYMBOL IN 
0288 439 [SECOND COLUMN...NOW FIND FIRST 
0 BB 436 [FOR THIRD COLUMN 
59 DS 0288 437 30S: TSTL = RO :END OF LIST? | 
14 13 O2BA 438 BEQL o [IF EQL YES 
55 OD BC 4 TSTL oR :NO--END OF PAGE? | 
10 15 O2BE 440 BLEQ :IF LEQ YES 
0509 a9 «OOE”Cé#é=* CO 441 BBC asin [BRANCH IF NOT SUPPRESSED SYMBOL 
¢ Ade SyMSU. Vee RG CRO) ),35$ 
59 69 00 0265 44 MOVL YMSL-LINK(R9) .RO sLINK TO NEXT SYMBOL 
5 CB 4k BRB STRY AGAIN 
59 69 DO O2CA 445 35$: MOVL SYMSL_LINK(R9).RO SNOT SUPPRESSED, LINK TO NEXT SYMBOL 
€8 55 F4 CD 446 SOBGEQ R5,308 [COUNT AND L 
09 448 > NOW R10 POINTS TO FIRST SYMBOL OF FIRST COLUMN 
D0 449: R8 POINTS TO FIRST SYMBOL OF SECOND COLUMN 
D0 430 : R9 POINTS TO FIRST SYMBOL OF THIRD COLUMN 


MACSF INISH 
v04-0 


0000' CF 

ores 

56 A 

10 

05 09 AA OE 
SA 6A 

Fi 

5A 6A 

06f) 

56 8 

10 

05 09 AB COE 
58 68 

Fi 

58 68 

06CC 

15 68 ¢0 

56 9 

05 09 Ao =séOOE 
59 69 

F1 

59 06 Hf 
00000000'8F 00000000’ ff 
00000000 ' 8F 
00000000 'EF 
0000' CF 

FCC8 

99 6€ 

8E 

03 68 gf 

59 8 

5A 59 

03 

FF3D 


0000' CF 
QOOOO'CF 01 


vw» 


) 
| 
OUTINES FOR FINISHING ASSEMBLY 1 =SEB-1984 02:15:54 YAX/VMS Macro V04-00 Page 11 | 
RINT SYMBOL TABLE IN ALPHABETICAL ORDER 5=SEP-1984 01:48:10 (CMACRO.SRCJFINISH.MAR;1 39) 
Dd 4 § 40$: PUSHL W*MACS$GL “the PAE 3; Stack gypbols/pe ge | 
D4 4 ; $: BSBW MA $i $LIST INTT SINIT LISTING BUFF R wANo POINTER 
D 07 454 538: MOVL :POINT TO FIRS sf COLUMN SYMBOL 
1 DA 455 BEQL te :IF EQL THERE IS NON 4 
E1 DC 496 BBC #SYMSV_SUPR, - :BRANCH IF NOT SUPPRESSED SYMBOL 
E1 45 SYMSW_FL LAG(R10) 578 
DO 0261 438 MOVL SyMSL LINK(R10)-R10 i LINK TO NEXT SYMBOL 
11 £4 45 BRB 3$ :TRY AGAIN 
B0 ES 460 57$ MOVL  $SYMS$L_LINK(R10),R10 SNOT SUPPRESSED LINK To NEXT SYMBOL 
E9461 BSBW = MAC SPRT_SYM_INF iPRINT — SYMBOL INFORMATION 
bg EC 46¢ 60$ MOVL R6 ; POINT 10. SECOND COLUMN SYMBOL 
1 EF 46 BEQL 7 sIF EQL THERE IS NONE 
E1 Fl 464 BBC aSYMS ‘BRANCH IF NOT SUPPRESSED SYMBOL 
F6 = 465 SYMSW “FAG RED 65$ 
DO O2F6 466 MOVL  SYMSL“LINK(R8).R8 ;LINK TO NEXT SYMBOL 
11 0279 46 BRB :TRY AGAIN 
00 O2FB 468 65$:  MOVL  SYMSL LINK (RB) RB NOT yQuBPR ESSED, LINK TO NEXT SYMBOL 
0 OOFE 469 BSBW MACSB RT T SYMBOL INFORMATION 
EO 0301 470 70S: BBS #FLGSV TStMoCOL, (R11), gos’. Branch if two column Listing 
D9 0305 471 73$: MOVL R9,R6~ :POINT 16 THIRD COLUMN SYMBOL 
13 0308 47¢ BEQL [IF EQL THERE IS NON 
E1 O30A 47 BBC #SYM :BRANCH IF NOT SUPPRESSED SYMBOL 
O30F 474 Synsu VeeRGtRS) .? 
DO O30F 475 MOVL  SYMSLTLINK(R9). “aoe iLINK TO NEXT SYMBOL 
11 O312 476 BRB 3 RY AGAIN 
b0 314 477 778 MOVL SYMSL LINK (R9) RO :NOT SUPPRESSED, L INK TO NEXT SYMBOL 
0 0317 478 BSBW = MACSPRT_SYM_IN RINT SYMBOL INFO MATION 
D1 O31A 479 80$ CMPL AMACSGL sttst. PTR, wnacsaay LST_END ;LINE THERE? 
fs 0325 480 BLEQ 
C3 0327 481 SUBL3 #MACSAB -LINEBE - :YES=-F IGURE LINE LENGTH 
032D ae “L“MACSGL_LIST_PTR,- 
33 é 48 W*MACSGL_LINECN 
30 0335 484 BSBW MACSWRILST ;WRITE IT our 
F5 0338 485 90S SOBGTR (SP) ,50$ “LOOP FOR A PAGE 
D5 0338 486 TSTL  (SP)¢4 CLEA N STACK 
E1 0330 487 BBC #FLGSV_SYM2COL,(R11), 958 ; Branch if not two column Listing 
dO baa, 488 MOVL R8B,R9 ~ ; Get next symbol to print 
0344 489 95$: 
09 0344 490 MOVL  _R9,R10 :POINT FOR NEXT PAGE 
13 0347 «491 BEQL  100$ [IF EQL ALL DONE 
31 0349 49¢ BRW PRT_SYM_LOOP SELSE CONTINUE 
034C 493 1008: 
034C 494 PRT_SYM_END: 
OF O34¢ 495 PUSHAB W*MAC$GQ_RNT_SYO :STACK TIMING BLOCK ADDRESS 
FB 0350 4496 CALLS #1,W*MACSTIMER_OFF [FINISH TIMIN 


G SYMBOL TABLE OUTPUT 


MAC 
v04 


n 8 
NG ASSEMBLY 16-SEP-19 


MACSFINISH ROUTINES FOR FINISHI 84 02: 15:54 VAX/ vs Macro V04-00 Page 
v0G- PRINT PSECT SYNOPSIS =SEP=1984 01:4 YRACRO- SRC SF INI SH.MAR; 1 
498 .SBTTL PRINT PSECT SYNOPSIS 
0 PRT_PSECT_SYNOP: 
0000' cr OF POSHAB W*MACSGQ_RNT PSY :STACK TIMING BLOCK ADDRESS 
O000'CF 61 FB 6 CALLS #1,W°MACSTIMER ‘START TIMING PSECT SYNOPSIS 
0000'¢F D 5 STL AMACSGL *DIRFLG ‘WAS SYMBOL TABLE OUTPUT? 
4 12 036 04 BNE :IF NEQ YES 
QO00'CF D4 036 ; 5 CLAL MACSGL_LINE_CNT SNO--ALWAYS OUTPUT NEW PAGE 
00000000'GF 9F 0368 06 10$:  PUSHAB CAMACSAB™ PSC =AbgA ‘CREATE THE HEADER MES SAGE BLOCK 
00000000'GF 9F 036E 20 PUSHAB G*MACSAB~PSC_HD ‘DYNAMICALLY ON THE STAC 
00 DD 0374 08 PUSHL #0 t=- 0 INDICATES A BLANK itive -- 
00000000'GF 9F 0376 20 PUSHAB G*MACS$AB_PSC_HDRB STHIS WILL BE REMOVED NCE 
00000000'GF 9F 037 10 PUSHAB G*MACSAB~PSC-HDRA [THE NEW SUBTITLE AND LOBSEe TION 
00000000'GF  9F 0 82 511 PUSHAB G*MACSAB~PSC_HDR [HAVE BEEN ESTABLISHED. 
00 OD : o18 PUSHL #0 t=- 0 INDICATES A BLANK LINE -- 
07 DD 0 A 51 PUSHL #7 ‘NUMBER OF MESSAGE LINES. 
DD C 51% PUSHL SP SADDRESS OF MESSAGE BLOCK. 
05 Dd 038 15 PUSHL #S SSTACK # OF LINES WE WILL USE 
6E O000'CF CO 0 9 216 ADDL2 W*MACSGL_PSC_MAX,(SP) ADD TO GET TOTAL WE NEED 
00000000'EF 9F 0395 51 PUSHAB L*MACSAB~PSS_MSG SSTACK SUBTITLE STRING 
0813'CF O03 FB 0398 518 CALLS 53 W*NEW SBT-CK_PAGE  :DO NEW PAGE IF N NEEDED AND OUTPUT HEADER 
50 BF nN) 0340 519 MOVL (SP) SCLEAR THE MESSAGE BLOCK FROM THE STACK. 
SE 6640 DE O3A3 520 MOVAL (SP) thO} SP TRESTORE THE STACK POINTER. 
56 0000°¢F 9 347 521 MOVAB SECTSMAIN,R6 ‘POINT TO ABS PSECT 
05 B 30 O38AC 5 : BSBW RACSPSECT PRINT iPRINT ITS INF 
56 0000'CF 9€ O3AF 5 MOVAB PSECTSBLANK,R6 { To ABLANK PSECT 
03 09 A6 97 4 3B4 524 BBC Ps vneY REF, SYMSW_ FLAG(RO), 133 $1 BEEN REFERENCED? 
052E 30 0389 525 BSBW MACSPSECT PRINT 7YES, “eh NT I S INFO 
56 0000'CF b0 O38C 526 15$:  MOVL WMACSGL_PSC_LIST.R6 § :GET PSECT List POINTER 
08 13 O3c1 527 BEQL $ LIF EOL NO MORE 
0524 30 0O3¢3 528 208: BSBW MACSPSECT PRINT :PRINT THIS PSECT 
56 66) «60 0306) 529 MOVL  (R6),R6 ‘NEXT PSECT 
FB 12 03C9 530 BNEQ SIF NEQ THERE IS A NEXT 
O000'CF 9F O3CB 531 30$:  PUSHAB W*MAC$GQ_RNT PSY ‘STACK TIMING BLOCK ADDRESS 
Oo00'cF O01 FB O3CF 532 CALLS #1,W°MACSTIMER_OFF :STOP TIMING PSECT SYNOPSIS 


- 


a 
| 
| 
| 


MACSF INISH ROUTINES FOR FINISHING ASSEMBLY 16-SEP-1984 4 02: 15:54 VAX/ VMS Macro v04-00 Page 13, MA( 
v0G- PRINT CROSS-REFERENCE IF REQUESTED -SEP-1984 01:48:10 EMACRO. SROIF INISH «MAR; 1 vO 
D4 4 ~SBTTL PRINT CROSS-REFERENCE IF REQUESTED 
D4 : PRT_CROSS_REF: 
0000'CF § D4 TSTL W*MACSGL_CRF_FLG WAS THERE ANY CROSS REFERENCE? 
1 D8 8 BEQL 408 ; QL NO=-SKIP IT 
QOOO'CR OF DA 9 PUSHAB W*MAC$GQ_RNT_CRF ‘Ut AER TIMING BLOCK ADDRESS 
0000' CF 1 FB 03D 40 CALLS #1,W*MACSTIMER_ON iSTART TIMING CREF PHASE 
D4 O03 41 CLRL = RO” :CLEAR INDEX INTO TABLES 
50 00000000" EF 49 bg ES 4¢ 10S: HOVL ORACSAL_ CRF_TBSCR9I,RO ZARE E re | 
51 Q0000000'EF49 9A O3EF 44 MOVZBL L“MACSAB_CRF_ TB6CR9],R1 ;GET BIT # TO CHECK 
3E OOOO'CF 51 «E11 O3F7 545 BBC Bt W°MACSGL_CRF_FLG, 565 ZF CLEAR TRY NEXT CREF AREA 
60 D3 FD 546 TSTL (RO) DID WE CREF ANYTHING? 
A 1 SFR | 547 BEQL 208 AT, EQL NO--DO NEXT 
50 59 dO 0401 548 MOVL 9, RO ; Pass index. 
1 D4 Bebe 549 CLRL R1 e normal cref width. 
52 Q0000000'EF49 00 0406 550 MOVL §L*MACSAL_CRF_TB3CR9J.R ict CONTROL TABLE ADDRESS 
53 00000000'EF 49 b9 0408 551 MOVL L“MACSALICRF-TB7CR9J,R3 ; Get column width flag | 
18 =O 416 226 BEQL iss 3; If EQL not a variable field 
48 A2 O0000000'EF49 Dd 0418 55 MOVL L“MACSAL_CRF_TB8CR9J, - ; Set KEYIFIELD entry 
0421 554 cart K1 rt TaC(R (R2) : assuming narrow field 
0B 68 53 €1 0421 555 BBC ,(RT1) ; Branch if narrow — Listing 
51 D6 0425 556 INCL ; Set wide listi mi 
48 A2 O0000000'EF49 00 0427 557 MOVL  L“MACSAL_CRF_TBOCR9J, - : Set KEVIFIELD DE TRY 
0430 338 om ERFSL _KIFMTBE (R2) : for wide field | 
53 Q0000000'EF49 9A 0430 560 MOVZBL L“MACSAB_CRF_TB4CR9],R3 ;GET DEFS_REFS OR VALS_REFS 
0354 30 0438 561 BSBW CREF. TREE_OuT :DO THIS CREF 
D6 0438 36¢ 208: INCL RO [NEXT CREF 
A6 «611 «(0430 2—S («56 BRB 10$ ; 
QOOO'CF SF O43F 564 30S: PUSHAB W*MAC$GQ_RNT_CRF :STACK TIMING BLOCK ADDRESS 
O000'CF 01 FB 0443 565 CALLS #1,W°MACSTIMER OFF :STOP TIMING CROSS REFERENCE 
OO'CF 9F 0448 566 40S: PUSHAB W*MAC$GQ_RNT TOT :STACK TIMING BLOCK ADDRES 
OOOO'CF 01 FB 044C 567 CALLS #1,W*MACSTIMER_OFF :STOP TIMING OF ASSEMBLER NOW 
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PRT_RUN_TIM: 
PU 


208: +> 


30$: MOVZWL 


C 
TISTICS ~SEP=1984 


16-SEP-1984 t fe: 15:54 yAtcyes Macro V04-00 Page 
7:48:10 EMACRO SRC JF INISH.MAR; 1 


OUTPUT CPU AND ELAPSED TIME STATISTICS 


G*MACSAB_RUN_HDRA sCREATE THE HEADER MESSAGE BLOCK 
G*MACS$AB_RUN-HDR ‘DYNAMICALLY ON THE STA K. 

#0 :== 0 INDICATES A BLANK LINE -- 
G*MACSAB_IND_HDRB [THIS WILL BE REM oveD LATER ONCE 
G*MACSAB_IND-HDRA :THE NEW SUBTITLE A SECTION 
GPMACSAB_ IND=HDR ‘HAVE BEEN ESTABLI MED 

:=- 0 INDICATES A BLANK LINE -- 
; ‘NUMBER OF MESSAGE LINES 
SP SADDRESS OF MESSAGE BLOCK 
#8 ‘# LINES NEEDED 
L“MACSAB_RNT_MSG ‘STACK SUBTITLE STRING 
#3,W°NEW-SBT-CK_PAGE | :DO NEW PAGE IF NEEDED AND OUTPUT HEADER 
(SP)+, RO [CLEAR THE MESSAGE BL OCk FROM THE STACK. 
(SP) ERO, SP ‘RESTORE THE STACK POIN NTER 
L*MACSAW_IND_NAMS,R9 | :POINT TO TABLE OF NAMES 
L°MACSAW-RNT-PTRS.R8 = :POINT TO TABLE OF RUNTIM E WORDS 
L°MACSAW-TIM“PTRS.R6 POINT TO TABLE OF ELAPSED QUADWORDS 

(R9)+,RO™ [GET ADDRESS OF STRING 
50$ [IF EQL ALL DONE 
(RB) +,R1 GET ADDRESS OF CPU TIME QUADWORD 
R2 ‘CLEAR Re, R 
RG [CLEAR R4 ALSO 
#100, (R1),R2,R1 EAT ONAL PART TO R1 
#60, R¢,RS,Re :SECONDS TO R 
#60.R3.R4.R ‘MINUTES TO R3, HOURS INR 
(ROS = (SPS :GET ADDRESS OF ELAPSED rime QUADWORD 
R 
rs 
(R6)+,R1 :POINT TO ELAPSED TIME QUADWORD 
8(R1) [STACK THE # OF PAGE FAULTS 
RO ; STACK STRING ADDRESS 
L“MACS$AB_FAO_TIM,RO [POINT TO FAO CONTROL STRING 
MAC$WRT FAOUTS [FORMAT AND OUTPUT THE LINE 
4724, SP” [CLEAR THE ARG LIST FROM THE STACK 


FBIC’ 


0000'C 
00000000" EF 
FBO1" 


SE 
50 00000000'EF 
50. © O00001FF 
7E 3651 OF? BF 
50 reneaey 
se 
0000'C 
0000'C 
0000'C 
50 2 
00000000'E 
51 50 8 
6E 00000000'°E 
50 00000000'E 
FAA 
we 
0000'C 
0000'C 
00000000'E 
51 50 8 
6E neewedl. 
50 00000000'E 
FA8 
0 
CF 
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2:15:54 VAX/VMS Macro v04-00 
1:48:10 (CMACRO.SRCIFINI 


NISH.MAR; 1 


~SBTTL PRINT MEMORY USE STATISTICS 


PRT_MEM_USE: 


“BSBW MACSWRT_BLNKLIN 


SADJUSL -§ APAGCNT=#0 WSETLM=W*MAC 
PUSHL ~W*MACSGL_DIAFL 


GL 
MOVAS L*RACSAB- WSL FRO, RO 
Bw MACSUR T_FAOUTS 
2 #184 5 
VL taco. INTPAGRQ, RO 


ADDL3 ay xi 

ASHL #-9,R1,=( RCP) 

PUSHL 

MOVAB L*MACSAB IFP_FAO,RO 


Bw mace T_FAouTS 
PUSHL W*MA AGSEL. SYM_LOCL 


PUSHL 

PUSHAB POMACSAB “WERE _MG 
SUBL3# »R1” 

BNEQ 10 

MOVAB L“MACSAB_WAS_MS 


G,(S 
MOVAB L“MACSAB"SYP"FAO,RO 
BSBW RACSURT T_FAOUTS 


2 fhe 
PUSHL WeMACSGL _0BJ_RCNT 
W°MACSGL~SRC~LCNT,RO 
PUSHAB L“MACSAB_WERE_MG 
SUBL3.# 


P) 


BNEQ 2 

MOVAB L“MACSAB_WAS_MSG, (SP) 
PUSHL RO 

aeage L“MACSAB peer M0. »RO 


BW MACSURT T_FAOUT 
#3*4,SP 


PUSHL GemateeL MCDEF 

MOVL _ WMACSGL~MCPGRQ,RO 

PUSHAB L“MACSAB-WERE_MG 
UBL3 #1,R0,R1~ 


BNEQ 
natn p gMACEAR.. WAS_MSG, (SP) 
MOVAB L“MACSAB_MCD_FAO,RO 


BSBW MACSURT _FAOUTS 
ADDL2 #3*4,SP™ 


A LINE 


SKIP 
$6. DIRFLG :GET WS LIMIT 


sSTACK WS LIMIT 
;POINT 10 FAO CONTROL STRING 


AND STACK 

STACK # BYTES OF INT. BUFFER 
POINT TO FAO STRING 

He MAT _AND OUTPUT THE STRING 

CLEAR THE STACK 

STACK COUNT e LOCAL SYMBOLS 
; STACK ‘ye gh. F NON-LOCAL SYMBOLS 
:COMPUTE # PAGES ALLOCATED 


[STACK # PAGES ALLOCATED 
[ASSUME MANY PAGES ALLOCATED 
‘WAS THERE ONLY ONE PAGE? 


31F NEQ NO, : 

7 YES--USE ‘WAS*’ INSTEAD 
;POINT TO FAO CONTROL STRING 
;FORMAT AND OUTPUT THE STRING 
SCLEAR THE STACK 

:STA ACK OBJECT RECORD COUNT 
:GET sounts RECORD COUNT 

ZAS UME NOT 1 SOURCE LINE 

: 1 LINE 


STACK SOURCE RECORD COUNT 
:GET FAO CTL STRING ADDRESS 
FORMAT AND OUTPUT THE STRING 
:CLEAR THE STACK 

STACK # OF MACROS DEFINED 
:GET e as le | te TO DO SO 


ES 
ZADDRESS OF FAO CONTROL STRING 
FORMAT AND OUTPUT THE STRI 


:CLEAN THE STACK 


IN 
NG 


oooo 


E 
E 
E 
E 
F 
F 
F 
F 
F 


Crrns 


MACSF INISH ROUTINES FOR FINISHING ASSEMBLY 16-SEP-1984 :15:54 VAX/VMS Macro v04-00 Page 16 
y0%.000 PRINT MACRO LIBRARY USE STATISTICS -SEP-1984 SET MACRO.SRCJF INISH-MAR: 1 . (10) | 
hf 960 -SBTTL PRINT MACRO LIBRARY USE STATISTICS 
5AB 206 PRT_MLB_STATS 
O000'CF 05 O5AB 66 TST W*MACSGL_MLB_CNT : WERE THERE ANY MLB'S? 
03 14 ~AF 664 BGTR 10$ s1F G a A 
0089 31 O5B1 665 BRw 60$ a IP L OF THIS | 
444445 OF 5B4 096 10$: PUSHAB G*MACSAB_MLB_HD2A ; CREATE THES HEADER Me Ss0ee BLOCK 
00000000 ' GF OF been 66 PUSHAB G*MACSAB— “MLB_ HD ‘DYNAMICALLY ON THE STACK 
00 oD 5¢ 668 PUSHL #0 z-- 0 INDICATES A BLANK LIN NE == 
00000000 ' GF oF 5¢ 06? PUSHAB G*MACSAB_MLB_HDRB TH HIS WILL BE REMOVED CATER. ONCE 
00000000 ' GF OF 5C 670 PUSHAB G*MACS$AB_MLB_HDRA THE NEW SUBTITLE AND SUBS ECTION 
00000000 ' GF oF 5CE 671 PUSHAB GAMACSAB_ “MLB_HDR tHAV BEEN ESTABLISHE 
00 dD 5D4 ore PUSHL oad INDICATES A BLANK LINE -- 
07 DD b208 67 PUSHL 7 Hye rtp OF MESSAGE nie 
25 DD 05D 674 PUSH SP ADDRESS OF MESSAGE BLOCK. 
7E 0000'CF 0 C1 OSDA 675 ADDL #7,W°MACSGL_MLB_CNT, -(sP5 sFIGURE TOTAL wet: ye AND STACK 
50 0000'CF 01 C3 OSEO o78 SUBL Al *W°MACSGL~ “MLB_CNT,RO WAS THERE ONLY 1 LIBRA 
02 15 0566 67 BLEG 208 Z1F LEQ YES | 
6E D6 OSE8 678 INCL (SP) :NO--PRINT TOTALS LINE ALSO 
00000000‘ EF SF OSEA 679 208: PUSHAB L*®MACSAB_ RNT_MSG sSTACK LINE 2 HEADER MESSAGE 
0813'CF 03 FB OSFO 680 CALLS #3,W*NEW” SBT_ CK_PAGE ;OUTPUT HEADER AND PAGE IF NECESSAR 
8E DO OSFS 681 MOVL (SP) R stLem THE MESSAGE BLOCK FROM THE STACK. 
6E40 DE O5F8 ong MOVAL (SP PEROT, SP RESTORE THE STACK POINTER. 
56 0000' CF dO bans os? 308 MOVL W*MACSGL_MLB_QUE ,R6 ‘POINT TO THE MLB QUEUE 
08 A6 DD 0601 685 PUSHL MLFSL_MCDEF(R6) : STACK NUMBER — MACROS DEFINED 
OC AG OF 0604 686 PUSHAB Oats FNAMDS (R6) Stack file name Geece tptor address 
50 00000000 ‘EF 9E 0607 687 MOVAB MACSAB_MLB_FAO,RO GET oF AO CONTROL STRING ADDRESS | 
F9EF® 30 O60€E 688 BSBW bacsort  FAOUTS ;FORMAT AND OUTPUT THE STRING | 
5E 08 CO 0611 #689 ADDL2 #2*4,SP™ : Clear the stack 
56 66 DO 0614 690 40$: MOVL (R6), RO +4 TO NEXT MLB 
00000000 ' 8F 56 D1 0617 691 CMPL R6 #MACSGL_MLB_QUE iA THE END OF 7h QUEUE? 
E1 \¢ O61E 69 BNEQ H NEQ NO 
50 0000'CF 01 C Bose 69 SUBL3 #1 ,W*MACSGL_MLB_CNT,RO ;WAS THERE ONLY ONE MLB? 
17 15 0626 694 BLEQ 6-508 F LEQ YES--SKIP TOTALS LINE 
0000'CF DD 0628 695 PUSHL W*MACSGL_MLB_MDF + STARR TOTAL NUMBER OF MACROS DEF INED 
OOOOO0O00'EF 9F begs 696 PUSHAB L*“MAC$AB_MLB_TOT : Stack gescrtpte or of Totals string 
50 00000000'EF 9E 06 § 697 MOVAB L*“MACSAB— MLB FAO,RO ag thd TO FAO CONTROL STRING 
F9C4" 3 063 698 BSBW HaCsUR T_FA AouTSs ;FORMAT AND OUTPUT THE STRING 
5E 08 0 063C 699 ADDL2 #2%4, ep : Clear the stack 
FOBE' 0 0635F 700 50$: BSBW MACSURT at yt ,. LINE 
0000'CF DD C642 701 PUSHL URACSGC fH B_MDF STACK # MACROS DEFINED 
5 0000'CF DO 0646 8 MOVL W*MACS$GL~ “ALB ae RO 3;GET # GETS REQUIRED 
ne oF p6e8 4 PUSHAB ae WER ERE_M sASSUME MANY GETS NEEDED | 
50 1 C3 0651 704 SUBL3 sSEE IF ONLY 1 GET 
07 12 0653 705 BNEQ IF NEQ NOT 1, GET | 
6E eeaseeedl 9E 0657 70 MOVAB L“MACSAB_WAS_MSG,(SP)  ;1 GET-=-SAY 
0 oD bees 707 55$: PUSHL i sSTACK # GETS REQUIRED 
50  00000000'EF 43 B99 708 MOVAB L*“MACSAB_MLB_SUM,RO ;POINT TO FAO CONTROL STRING 
F996" 3 667 709 W hactut T_FAOU Ts hpi ory OUTPUT STRING 
5E oc CO 066A 710 ADDL2 #324 ;CLEAR STACK 
066D 711 60$: 


F 9 
MACSF INISH ROUTINES FOR FINISHING ASSEMBLY 16-SEP-1984 02:15:54 VAX/VMS Macro V04-00 Page 17 
v04=0 PRINT ERROR SUMMARY = 3EP= 1382 8F 13576 MACRO. SRCJFINISH.MAR; 1 9 a) 
66D 713 .SBTTL PRINT ERROR SUMMARY 
66D 714 
66D 715 PRT_ERR_SUM: 
F990" 30 660 at BSBW MACSWRT_BLNKLIN :SKIP A LINE 
5A QO000000'EF DO 06 9 71 MOVL L*MACSGC_ERRCT R19 :GET THE ERROR TOTAL 
59 9000" Cr DO 0677 718 MOVL  W*MACSGL-WARNCT,R9 SAND THE WARNINGS 
8 OO00'CF 00 67 719 OVL WiBACSGL “INFOCNT,RB : and the information messa 
50 59 SA C1 0681 720 ADDL3 WERE THERE ANY ERRORS/WARN NGS? 
50 8 CO 0685 721 ADDL2 Re 056° : or information messages 
OD 12 0688 7 : BNEQ 106 i1F NEQ YES 
50  00000000'EF 4 068A 7 MOVAB 1 ORACSAB NOERRM, RO :NO--GET NO ERRORS MESSAGE 
F96C' ; 0691 724 BSBW MACSWRT_FAOUTS ZFORMAT AND OUTPUT IT 
00BB 31 0694 g 5 BRW PRT_ERR—SUM_END ALL DONE 
: | 
0697 7 5 : THERE WERE ERRORS/WARNINGS. PRINT THAT. 
0697 728 : 
0697 729 ios: | 
58 DD 0697 730 PUSHL R8 ; Stack information messages count 
59 DD 0699 731 PUSHL R9 : worn inn count | 
SA DD «(0698 132 PUSHL R10 ;AND ERROR COUN 
50 O0000000'EF 9E 069D 73 MOVAB L“MACSAB_ERRM,RO “GET THE FAO UT RING 
F959" 30 06A4 734 BSBW  MACSFAOUTS SFORMAT THE LINE 
5E O¢ 0 O6A7 735 ADDL2 #34 ep : Pop three longwords from stack | 
953" 30 O6AA 736 BSB MACSTERM_BLANK ;WRITE ONE BLANK LINE TO TERMINAL | 
50 OO00'CF DO O6AD 737 MOVL §§ W*MACSGL~LINELN,RO :GET THE LINE LENGTH | 
F94B' 39 0682 738 BSBW MACSWRITE_TERM :WRITE LINE TO TERMINAL | 
F948" 30 0685 739 BSBW MACSWRTLS sAND THE LISTING FILE 
5A 00000000'EF D0 0688 740 MOVL TMACSGL ERR_LIST,R10 :GET PTR TO FIRST ERROR BLOCK 
00000004'FF D4 O6BF 741 CLRL @L*MACSGC_ERR_LIST+4 : CLEAR LINK WORD | IN LAST BLOCK 
59 10 AA i 06C5 74 MOVA aeCRTOD. Ro” *POINT TO FIRST PAGE/LINE | 
58 QO00007E 8F OC AA C3 0609 74 SUBL 12(R10) .#<<1024-16>/8>,R8 ;FIGURE PAGE/LINES IN THIS BLOCK 
0602 744; 
O6D¢ 245 ; BACK HERE FOR EACH NEW LINE OF LINE/PAGE NUMBERS | 
4 | 
05 DD 06D2 747 20S: PUSHL #5 FIVE LINE/PAGES PER LISTING LINE 
0004'CF OO0000000'EF  9€ 0604 248 MOVAB L“MACSAB_LST_END, W*MACSG. ERRBFDES+4 ;SET BUFFER DESCRIPTOR 
060) 750 HERE FOR EACH NEW LINE/PAGE ITEM ON A PAGE | 
89 DD O6DD 138 S0s: PUSHL  (R9)+ :STACK THE PAGE NUMBER 
50 01 DO O6DF 75 MOVL #1,R0 : Assume insert number exists 
aa ie. O6E? 754 MOVZUL (R9)+,-(SP) : Stack insert number 
06 12 O6€ 755 BNEQ 35$ ; If NEQ insert number did exists 
50 D4 Bees £38 CLRL RO ; Set no insert number 
6— 04 AE 00 od Poe 355 MOVL 4(SP), (SP) 3 and move up Line number 
50 OD BOeD 759 PUSHL RO 3; Stack number of insert numbers (0 or 1) | 
50 e? 6EF 760 PUSHL RO ; gtech number of ‘.*s (0 or 1) 
7E 89 3¢ O6F } 761 MOVZWL (R9)+,-(SP) ; Stack Line 
50 5E DO O6F4 768 MOVL ‘copy STACK A DDRESS 
06F7 76 SFAOL_S CTRSTR=L°MACSAB LPG Fat. = ;FORMAT THE LINE/PAGE 
06F7 764 OUTBUF=L*MAC$G_ERRBFDES.- 
06F7 765 QUTLEN=L“RACSCL. wrth - 
or? 766 PRMLST=(RO) 
0004'cCF OF CO 1g 76 ADDL rie W°MACSG_ERRBFDES+4 ;UPDATE POINTER FOR NEXT FAO (12 BYTES/LINE/ | 
SE 140=«COC0s«é0771 768 ADDL2 #54 SP [DELETE FIVE LONGWORDS FROM STA 
1258 F5 O71A 769 SOBGTR RB,46$ ‘BRANCH IF NOT DONE THIS ork 


MACSF INISH 
v04-000 


SA GA 

10 

59 10 AA 

58 QO00007E 8F OC AA 

AB ge 

0004 'CF 00000000°8F 
00000000’ EF 


=» 
on 


3 
FBAE" 


WES EPPA TnnN oa 


SS LQ NNN omen 
MOMS DOWNS SI N*AWOVU 


19-SEP-1984 2:1 15:54 VAX/VMS Macro V04-00 
-SEP=1984 01:48:10 CMACRO.SRCJFINISH.MAR; 1 
R10),R10 :YES--LINKE TO NEXT 
0$ TIF EQL ALL DONE 
$(R10) .R9 ‘POINT TO FIRST LINE/PAGE 

(R19) #<<1024-16>/8>,RB ; FIGURE INE /PAGES IN THIS BLOCK 
SP), 30$ ;L00P FOR 5 LINE/PAGES 
SP)¢ “CLEAR STACK 
MACSAB -L INEBF ,W°MACSG_ERRBFDES#4,- ;FIGURE LINE LENGTH 
0 LAMACSGL LINELN ;SAVE LINE LENGTH 
ACSWRITE_TERM ‘WRITE LINE TO TERMINAL 
ACSWRILST ‘WRITE THE LINE 
1 ANY MORE TO DO? 
0 NEQ YES 
ACSTERM_BLANK ‘ALAN LINE TO TERMINAL 


MACSF INISH E INISHING ASSEMBLY 
v06-= PRINT COMMAND LINE 
? .SBTTL 
reg OR 
25¢ 788 PRT_CMD.LIN: 
F8AB' 30 0752 7 BSBY 
O0000000'EF dD 0755 790 PUSHL 
Q0000000'EF DD 0758 791 USHL 
50 00000000.EF, 9 0761 798 MOVAB 
F895" 30 0768 79 SBW 
50 00000000"EF .90000000"F C1 O7ER 794 ADDL3 
50 0000"Cr CO 0777 795 ADDL2 
G3, 13 O77c 796 EQL 
rere, 30 O77— 79 SBW 
F87c' 30 0781 798 10$: BSBW 
SE 08 «CO 784 799 ADDL2 
787 800 FIN_ASM_EXIT: 
SA BEDO 0787 801 POPL 
0380 8F BA 078A 802 POPR 
05 078— 80 RSB 


“SEP-1984 Oe: 13:98 AX/VMS Macro 
“SEP=1984 01:48:10 (CMACRO.SRCIFI 


PRINT COMMAND LINE 


v04-00 
NISH.MAR;1 


att BLNKLIN 


7 SKIP 
“MACSGC_CMDLIN 


LINE 
STACK COMMAND LINE ADDRESS 
TS LENGTH 


C*RACSGL =CMDLEN AND ITS LEN 

C*RACSAB™ CMD_FAO,RO :POINT TO FAO a STRING 
MACSE AOUTS :FORMAT THE STRING 
L“MACSGL_ERRCT, Lmcset _WARNCT, RO ;ERRORS OR WARNINGS? 


U“MACSCL INFOCNT ,RO ; or inf 


‘ z ormation messages? 
MACSWRITE_TERM SYES=-WRITE TO Ud ta ALSO 
MACSWRT FILE 


LST ;WRITE TO LISTING 
#2*4,SP sCLEAR 2 LW FROM STACK 
R10 ;RESTORE R10 
#*M<R7,RB,RI> sRESTORE REGIST 


ERS 
s**EXIT FROM MACSFINISH_ASM 


Page 19 
9 42) 


MACSF INISH 
v06~000 


00000000" 


10 
00000000'G 
00000000'°G 


F 
F 
00000000 ‘GF 
00000000 ' GF 
F 
F 
F 


00000000'°G 
00000000'G 
00000000'G 


0 
08 


-S 
Vinge 
on"e 


00° 


=o 
Wo 


“ 
mm 
ae 
Ses OND FE DODOMOOL LS LOL LOL £umuim 


00000000° 


mH KOOMW™ OM NOOOCCOCOCOMOO—nrwn 


000 
00000000 

00000084 
00000000'GF 06 


>" 


DO FF rr rn rn 9 ee 


WOO OCOCOCDCDCDCD CODCOD CD ODCDCDCDCDOCDODCD OM 


QVoQVqQ_VQQ_VQ NN 


POPOPOPONNOPUNN 2 OOOO 


CONAUE WN O OONOU EW OOOnNOU we 


OOM WH AMMMMoOCVTVTVIOMOO 


a 
BOWS ONT NS MONI 
0.09 09 0000 Od 00 Op Od Cd 00 Od Cd OD OD Cd Od CD C0 CD C9 OD GD OD CD CD 


SOOOOCCOCOCOCOCOCOOOOCOCOOOooOoOOo 
OODoN NNN NSN NNN 
SV BY BS BB BE EE AWA WII 
MO ODNOAUES WN" OVOONAULS WN OO 


~n 
mr 
z-~< 


ENCE “SEP-19 


16-SEP-19 r ¢ 


:15:54 VAX/VMS M v04-00 P 
:48:10 MACRO. SRC Fy I foe (8) | 


NISH.MAR; 1 


-SBTTL OUTPUT ONE PHASE OF CROSS REFERENCE 


p++ 
; FUNCTIONAL DESCRIPTION: 


CREF_TREE_OUT: 
C L“MACSGL_LINE_CNT 


Ri, 10$ 
PUSHL GAMACSAL _CRF_TB “ 
oe G*MACSAL_CRF_TB2W 


208 
10$: PUSHL G*MACSAL_CRF “TBS. f 
PUSHL G*MACSAL— _CRF “TB 
20$: PUSHL #0 
PUSHL G*MACSAL_CRF_TB1B 
PUSHL G*MACSAL_ CRF “TBIA 


RO] 
ROJ 
RO] 
ROJ 
RO] 
it 
PUSHL SA RACSAL. CRF-TB1 CRO 


PUSHL #7 
PUSHL SP 
PUSHL #5+4 


PUSHAB G*MACSAB_CRF _MSG 
CALLS ih jNeu SBT" CK_PAGE 


(SP 
MOVAL (3h) cho. SP 

R1 
PUSHL ACRE SK DELETE 
PUSHL W*MACSGL_LN_PAGE 
PUSHL aes “LINE_CNT 


RO 
a #6,G*CRFSOUT 


INPUTS: 
RO ROSS REFERENCE TYPE IN 
R1 => NORMAL WIDTH LISTI 
2 POINTER TO CREF CO GNTROL 
CRFSK_VALS_REFS OR CRF 


THIS ROUTINE OUTPUTS ONE PHASE OF THE CROSS REFERENCE. 


W PAGE "Ta CREF 
FS_REFS F 


zo 
weal 
ow. 
or 
zoom 
4 
» 
oO 
r 
o> 
-—OO 
-22D 
- Oo 
— 
Oo 
> 
+ 
oO 
2» 


HAS BEEN CHOSEN. 


N 
FOR SECTION HEADING. 
STING HAS BEEN CHOSEN. 
DARY HEADER LINES. 
LANK LINE -- 
; ON HEADER LINES... 
; (THE ONES THAT Ms sa THE BOXED IN 
: SECTION HEAD 
poe 01 NDICATES A Bi ANK LINE = 
NUMBER OF HEADER LINES SIN THs BLOCK. 


J 
=e 
+ 
S~< 
Pox 
m 
> 
=] 
m 
P] 


STACK THE § 


m — 2eOZO~-wmm 
Pd mow 
a 
@o 
_~ 


OR DEFS_ 
-TREE FLAG FOR’ CREF 
R DEFS_REFS FLAG ON STACK 
N SUBSEQUENT PAGES 
FIRST PAGE 
LINE 
L BLOCK ADDRESS 
S REFERENCE 


Orc ezeavrvoanan 
cz 
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v04- SET UP FOR NEW SUBTITLE AND CHECK NEW pa’ “SEP=1984 01:48:10 ERACRO SRE FINISH.MAR; 1 (14) | at 
| 
54 .SBTTL SET UP FOR NEW SUBTITLE AND CHECK NEW PAGE | 
1 ; goo 
37 : FUNCTIONAL DESCRIPTION: | 
1 3§ : THIS ROUTINE PUTS A NEW LINE IN THE SUBTITLE BUFFER FOR | 
60 : PSECT SYNOPSIS AND THE RUN STATISTICS. | 
] $6 : INPUTS: | 
5 64 : 4(AP) ADDRESS OF STRING To PUT IN TITLE BUFFER (COUNT, TEXT) 
081 65 : B(AP) # LINES NEEDED LEFT ON PA 
O81 66 ; 12(AP) ADDRESS OF HEADER MESSAGE BLOCK 
081 68 : NOTE: THE FORMAT OF THE HEADER MESSAGE BLOCK IS THE SAME AS | 
0813 869 : A STANDARD VAX/VMS ARGUMENT LIST, WHOSE ENTRIES ARE THE 
081 a : ADDRESSES OF FAO CONTROL STRING DESCRIPTORS. 
081 fe 
0813 87 
0004 081 874 -ENTRY NEW_SBT_CK_PAGE, “M<R2> ;ENTRY POINT 
50 04 AC DO 0815 875 MOVL  4(AP),RO GET SUBTITLE STRING ADDRESS 
1 9A 0819 876 MOVZBL (RO)+.R1 [GET ITS LENGTH 
20 60 51 2c O81C 87 OVCS R1,(R6), Meas / :COPY OVER SUBTITLE AND IDENT 
00000000'EF 0048 B&F 08 0 878 ALSTSK.ATTLE Sizesym SYMSK MAXLEN+1, - | 
50 O0000000'EF 08 aC C3 08 H 880 SUBL3. 8 (AP) ,L“MACSGL AP INE TeNT. no. i SEE IF ROOM LEFT ON PAGE 
03 14 0831 881 BGTR 10$ F'GTR YES 
F7CA' 30 0833 88¢ BSBW § MACSLST_PAG_HDR ‘ho --MAKE NEW PAGE N 
52 OC AC 0O 0836 883 10S:  MOVL  12(AP),R2 :GET ADDRESS oF SEADER MESSAGE BLOCK 
51 B2 09 083A 884 MOVL (R2)+, R1 [GET THE NUMBER OF HEADER MESSAGE LINES 
14 13 083D 885 BEQL  50$ :ANY PROVIDED? RETURN IF NOT. 
50 82 DO O83F 886 208:  MOVL (R2)+, RO [GET THE NEXT HEADER LINE 
06 BB 0842 887 PUSHR #*M<R1,R2> i PRESERVE REGISTERS ACROSS CALLS 
05 13 0844 888 BEQL 30% : BLANK LINE? 
F7B7"° 30 0846 889 BSBW  MACSWRT_FAOUTS FORMAT AND OUTPUT THE STRING 
03 11 0849 890 BRB 40$ tHe CK FOR MORE HEADER LINES... 
F7B2' 30 0848 891 30$:  BSBW §§ MACSWRT_BLNKLIN ‘SKIP A LINE. 
06 BA 084 89¢ 40$:  POPR #*M<R1,R2> SRESTORE REGISTERS 
ec 51 5 0850 89 SORGTR R1, 20$ SANY MORE HEADER LINES? 
04 0853 894 508: RET TALL DONE 


Enna SS ae ww_—_——aanneeeeeeeeeeeeeeeeeeeeeeeee eee ea... —— 


04- p 
WSicmar:t = 9° (98, 


MACSF INISH ROUTINES FO wt 
v04- OUTPU 


z= 


kK 9 
HING ASSEMBLY i ot Sb oe: 715:54 yaneyns Macro 
4 I 


AND VALUE FOR DEBUG ~SEP=19 748:10 EMACRO.SRe FIN 


7 
ian -SBTTL OUTPUT SYMBOL NAME AND VALUE FOR DEBUG | 
‘ | 
2? 38 FUNCTIONAL DESCRIPTION: 
é 3 i 3 THIS ROUTINE OUTPUTS THE NAME OF A SYMBOL FOR THE DEBUGGER. | 
534 308 | INpuTs: | 
54 6904 ; 
54 905 ; R6 POINTS TO SYMBOL BLOCK 
540C«<@S § 3 
8 54 907 ;-- 
54 908 
0854 909 MACSDBG_NAM, QUT: 
54 04 A6 OA 54 910 MOVZBL SYM$B_NAME(R6),R4 3; Get offset to name/count (which is 
0858 911 ; also totat size of count and name 
Ss M® hlUcKhCFTClCUSS 316 SUBL3 R4,R6,R5 Set pointer to count/name 
50 685) 90 OBd¢ 913 10$: MOVB  (R5)+-RO Get. CHARACTER OF NAME 
F79E* 30 O85F 914 BSBW macsst{OIM 
F7 54 F5 444 915 SOBGTR R4,10$ ;LOOP FOR WHOLE NAME 
05 086 916 RSB 
0866 917 
0866 918 ;++ 
paee ah 3; FUNCTIONAL DESCRIPTION: 
bare 4 1 ; THIS ROUTINE OUTPUTS THE VALUE OF A SYMBOL FOR THE DEBUGGER. 
pees 9 § ; INPUTS: 
0866 924; 
0866 925 ; R6 POINTS TO SYMBOL BLOCK 
0866 926; 
0866 927 ;-- 
0866 928 
0866 929 MACS$DBG_VAL_OUT 
0866 930 “$0BI CHKBYT #TIRSC_STA_PL ;STACK PSECT PLUS LONGOWORD 
7E OC A6 9A O086C 931 MOVZBL SYM$B_SEG(R6), -(SP) GET THE SEGMENT ~ R. 
OA 13 0870 336 BEQL 10$ i | FIDDLE WITH THE ABS eat et: 
07 EO 0872 93 BBS” eSYMS 5 BLANK PSECT BEEN 
02 00000009 ' GF BBR 934 G PSECTSBLANK+SYMSW_ FLAG, 108 NOT, IT‘LL BE REMOVE SO DECR 
6E 87A 935 DECL (SP) THE itGen TO’ PRESERVE PSECT Vat fchREN 
th! 936 10$: $08) OUTBYT (SP) tEMIT THE SYMBOL'S SEGMENT # 
0882 937 TSTL™ ( ;CLEAN UP of K 
0884 938 MOVAB SYMSL VAL (R6) ,R5 452 TO VALU 
tt 939 BSBW MACSOOT_LW sOUTPUT VALUE 
tt] Bey ne _CHKBYT PTIRSC _STO_LW : STORE LONGWORD 


. 3 
EMBLY 1 


MACSF INISH ROUTINES FOR FINISHING ASS =SEP=1984 4 02: :15:54 VAX/ VMS Macro v04-00 Page 2 
v04-0 OUTPUT PSECT RECORDS TO DEBUG “SEP-1984 01:48:10 ERACRO- SRCJF INISH «MAR; 1 ( 
3 943 -SBTTL OUTPUT PSECT RECORDS TO DEBUG 
92 945 s+ 
4 306 ; FUNCTIONAL DESCRIPTION: 
4 308 ; THIS ROUTINE OUTPUTS PSECT INFORMATION TO THE DEBUGGER 
O89 ge0 : INPUTS: 
9 93¢ ; R6 POINTS TO SYMBOL BLOCK FOR PSECT 
089 953 ; 
089 954 ;-- 
9 955 
0892 956 MACSDBG_PSECT: 
50 04 A6 9A 089 957 MOVZBL SYMS$B_NAME(R6) ,RO 3 get offset to symbol count/name 
50 6 50 C3 0896 958 SUBL ; Form address of count/name 
500s 60 : 089A 959 ADDB (RO) #DBGsK _PSECT_LEN-1, RO ; Figure size 
F75F* 30 O89E 960 SBW bre tr 
50 B68 8F 9A OBA1 961 MOVZBL nDaGs PSECT, RO :PSECT TYPE 
F758" 30 O8AS 96¢ SBW STOIM 
50 D4 08A8 96 CLRL ;MBZ BYTE 
F753" 30 OBAA 964 BSBW  MACSSTOIM 
BAD 965 $OBJ_CHKBYT #TIRSC_STA_PB ;STACK PSECT BASE PLUS BYTE OFFSET 
7E OC A6 9A O08B3 966 MOVZBL SYMS$B_SEG(R6),~-(SP) :GET THE SEGMENT N R. 
OA 13 O8B7 967 BEQL 5$ :DON FIDDLE WITH THE ABS PSECT! 
07 €0 0889 968 BBS WSYMSV_REF,- S THE BLANK PSECT BEEN REF 'D? 
02 00000009' GF 088B 969 G*PSECTSBLANK+SYMSW_ FLAG, 3s r1F N L BE REMOVED, SO DECR 
6— 07 O8Ci 970 DECL (SP) THE SEGA 16 PRESERVE PSECT ALIGNMENT. 
08C3 971 5$: $OBJ_OUTBYT (SP) tEMIT THE SYMBOL'S SEGMENT # 
gf D5 O8c9 97¢ TSTL (SP)+ :AND CLEAN UP THE STACK. 
5 4 08¢B 97 (ERE RO SUSE OFFSET OF 0 
F730" 30 O8CD 974 BSBW MACSOUT 
08D0 975 $0BJ_CHKBYT aitttte STO_PIDR ;STORE POSITION INDEPENDENT DATA REFERENCE. 
FF7B 30 O08D6 976 BSBW MACS NAM_ouT ND PSECT NAME 
55 05 A6 SE 08D9 977 MOVAB SYM$L_VAL(RB) RS ‘POINT TO LENGTH 
54 04 9A O8DD 978 MOVZBL #4,R4~ iL COUNT 
50 85 90 O8€0 979 108: MOVB (R5)+,R0 :GET BYTE OF VALUE 
F71A° 30 O8€3 980 BSBW MAC$STOIM F 
F7 54 «FS «(OBES 981 SOBGTR R4,10$ 
05 O8E9 982 RSB 
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pachely 16-SEP-1984 t SF} AX/VMS Macro 
FOR 1 PSECT “SEP=1984 MACRO.SRCJFI 


~SBTTL PRINT PSECT INFORMATION FOR 1 PSECT 


;++ 
; FUNCTIONAL DESCRIPTION: 


THIS ROUTINE PRINTS THE PSECT SYNOPSIS FOR ONE PSECT. 


R6 PSECT BLOCK ADDRESS 
ACSLIST_INIT sINIT LISTING BUFFER 
MOVZBL PSC SB. SEG(R6) ,RO :GET SEGMENT N NUMBER 
BEQL = 2$ ;DON'T FIDDLE WITH THE ABS PS SECT 
BBS #SYM SHAS THE BLANK PSECT BE EEN R 
GO PSECTSELANK+SYMSW_ FLAG.2$ :IF NOT, IT'LL 

DECL RO :THE SEG# TO 
PUSHL RO SSTACK IT 
PUSHL RO :TWICE FOR FAO 
PUSHL PSCS$L_MAXLGTH(R6) :STACK THE MAX LENGTH 
PUSHL (SP) :COPY IT (HEX AND DEC OUTPUT) 

Gtk 5$ :BRANCH IF POSITIVE LENGTH 
CLRL =: &( SP) SELSE PRINT DECIMAL AS 
mare PSC$B_NAME (R6) ,RO ; Get offset to symbol count/name 
SUBL RO,R6,- 3_and put its address on stack 
MOVAB L‘MAC$AB_PSS_FAO,RO 3POINT TO FAO CONTROL STRING 
BSBW MACSFAOUTS ; FORMAT TSERING 
ADDL2 #5%4 SP SCLEAR THE STACK 
ADDL mache LIST SIZE LOMAcsGl LINELN RO zFIGURE LENGTH OF LINE SO FAR 
MOVAB MACSAB st END (RO) - LISTING POINTE 
MOVZWL oscau_ oF frst lS ~ 3GET PSECT OPTIONS 

VL SFIRST BIT 
PUSHL #PSC$K_NO_OPTNS ; Loop once for each option 

, PRINTING PSECT OPTIONS 

BSBW PSECT_OPT_MATCH ;PRINT THIS OPTION 
ADDL2 R :NEXT BIT 
SOBGTR (SP),10$ [LOOP FOR ALL 
TSTL (SP)+ [CLEAN STACK 
MOVZ2WL PSC$W_OPTIONS(R6),R4 ‘CORY OPTIONS AGAIN 
BICL2 #*XPSCSM_ALLOPTNS.R4 : Trim all but alignm 
BISW2 #PSCSM_ACIGNFLG,R4 :SET THE ALIGNMENT FLAG BIT 
MOVL R4,R5S ~ :POSITIVE SENSE 
BSBW psect OPT_MATCH i PRINT ALIGNMENT 
BLBS 0s NCH IF FOU 
ASHL Mo eecay -ALIGNMENT, R4,RO ‘ert AL 1 GNA ENT 

§ MACSDEC"OUT_L2R [OUTPUT ALIGNMENT 


BE REMO ECR 
PRESERVE PSECT ALIGNMENT. 


BSBW 

SUBL3 #MACSAB CINEBE L*MACSGL_LIST OTR. = ;FIGURE LINE LENGTH 
“MA $6L_LINECN™ 

BRW MACSWRILST ;WRITE LINE TO LISTING AND RETURN 
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ROUTINES FOR FINISHING ASSEMBLY 1 ~$60-1986 02: :15:54 VAX/VMS Macro V04-00 
MATCH PSECT OPTIONS FOR PRINTING “SEP-1984 01:48:10 [CMACRO.SRCIFINISH.MAR; 1 
gre 49 .SBTTL MATCH PSECT OPTIONS FOR PRINTING 
O7F 1 rt | p+ 
Bee } i? 3 FUNCTIONAL DESCRIPTION: 
97F 1045; THIS ROUTINE PRINTS EITHER "XXX" OR "NOXXX' FOR A GIVEN 
97F 1 46 : PSECT OPTION 
i : d : INPUTS 
O7F 1 ‘8 3 
O97F 1050; R4 BIT VALUE 
O97 1051 ; RS OPTIONS 
O7F 1 26 3 
O97F 10535 ;-=- 
O97F 1054 
O97 1055 PSECT_OPT_MATCH: 
50 (54 90 97F 1056 MOVW R4,RO COPY BITS 
08 1 0982 1057 BEQL 108 [IF EQL NOT COMPLEMENTED 
55 50 B63 0984 1058 BITW RO,RS NEGATIVE POLARITY 
03 12 0987 1059 BNEQ 108 [IF NEQ NO 
50 50 B62 0989 1060 MCOMW RO,RO 7 YES--GET COMPL EMENTED VALUE 
53 OO0000000'EF  9€ 098¢ 1061 10$: MOVAB L‘“PSC$G_OPTIONS,R3 POINT TO PSECT OPTIONS 
07 AS) = 50——s«éwBSCéS9 1966 20$: CMPW RO,SYMSC_VAL+2(R3) 31S THIS IT? 
08 13 0997 106 BEQL 30 :IF EQL YES 
33. C«‘ DO 0999 + ¢: MOVL SYMSL_LINK(R3),R3 3; No--Llink to next 
F5 12 099C 1065 BNEQ 20$ :1F NEQ GO ON 
50 D4 O99EF 1066 CLRL RO ;RETURN 0 FOR NOT FOUND 
05 O9A0 1067 RSB 
5 04 AS 9A O9A1 1068 30S: oes Synse NAME (R3) ,RO 3; Get offset to count/name 
50 53 50 C3 O9AS 1069 SUBL R3.RO : and form its address 
51 80 9A 09A9 1070 MOVZBL trove :COPY T 
52 O000000U0'EF DO O9AC 1071 MOVL seat LIST_PTR,R2 3GET LISTING POINTER 
30 BB 0983 1076 PUSHR in »R5> ;SAVE OPTION PARAMETERS 
03 $1 91 0985 107 CMPB 318 IT LESS THAN ser ees NAME ? 
02 14 0988 1074 BGTR rey og”? i1F GTR NO 
82 B5 O9BA 1075 TSTW (R2)+ 7 YES--BUMP POINTER BY TwO 
62 60 51 £28 O9BC 1076 40S: MOVC3 R1, (RO), (R2) [COPY INTO BUFFER 
30 BA 09C0 1077 POPR #OR<R4 RSD *RESTORE OPTION PARAMS 
QO000000'EF 06 CO 09C2 1078 ADDL2 #6, cemkc eel _LIST_PTR ;TAB TO NEXT OPTION 
50 01 9A 09¢ 1079 MOVZBL #1,RO :RETURN FOUND 
05 O9CC 1080 RSB 
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v04=000 PRINT SYMBOL INFORMATION FOR ONE SYMBOL 5-SEP=1984 01:48:10 (CMACRO.SRCJF INISH-MAR:1 (19) 
9cp : .SBTTL PRINT SYMBOL INFORMATION FOR ONE SYMBOL | 
| 
9CD 1084 i++ 
cD 5 ; FUNCTIONAL DESCRIPTION: | 
a3cD € : THIS ROUTINE PRINTS THE SYMBOL INFORMATION FOR ONE SYMBOL 
Q9CD 1089 ; INPUTS: | 
9CD 1090 ; 
9CD 1091 ; R6 POINTS TO THE SYMBOL BLOCK 
90D 1 3¢ F 
ocd 1093 :-- | 
9CD 109% 
O9CD 1095 MACSPRT_SYM_INF: 
O7CO 8F BB 09CD 1096 PUSAR #*M<R6,R7,R8,R9,R10 
SA Q0000000'EF D0 0901 109 MOVL LSMACSGL_LIST_PfR, Oo :GET CURRENT POINTER 
5A DD 09D8 1098 PUSHL i COPY ONTO STACK 
50 04 A6 QA Bape 1099 ite SYMS$B_NAME (R6) ,RO Get offset to symbol count/name 
50 56 50 C3 OQ9DE 1100 SUBL R RO.RO ; and form its address 
51 80 9A O9E 1101 MOVZBL : a> count and advance pointer to name 
6A 60 51 28 O9E 1108 MOVC att Sa opy into Listing buffer | 
SA 6E «OOF:=CC1—s«O9ED=—-110 ADDL BcSYNBK: Ke TuEOL- -1>, (SP) rio’ oint past end of name 
03 68 2A €1 OQ9ED 1104 BBC #FLGSV_SYM2COL,(R11),5$ ; Branch if not 2 column Listing 
5A 10 CO 34 1102 $$ ADDL2 #<SYMSR oMAILENSSYMSK. TWOCOL+1>,R10 ; Allow for 31 character symbol 
0509 A6 08 €1 O9F4 1107 BBC #SYMSV. ASN, SYMSW_ FLAG(R6) 108 ;BRANCH IF NOT ASSIGNED SYMBOL 
BA 3D 90 O9F9 1108 MOVB /=/7(R10)+ ES--STORE EQUAL SIGN 
03 11 O9FC 1109 BRB 
8A 20 90 O9FE 1110 10$: MOVB #*A/ /,(R10)+ 
5A 09 CO OAO1 1111 20S: ADDL2 #9,R AKE ROOM FOR VALUE 
00000000'EF 5A DO OA04 1118 MOVL Ri0, L“MACSGL_LIST_PTR sOTORE CURRENT POINTER 
5A DD OAOB 111 PUSHL R10 *SAVE ON STACK ALSO 
09 09 A600 £0 OAOD 1114 BS #SYMSy DEF, isvmsu FLAG(R6 Rs, 30$ ;BRANCH IF SYMBOL DEFINED 
FB AA O08 2A GE 90 2 OAl2 1115 MOVCS #0,(SPY,#*A/*/,#8,-8(R10) ;NO=-FILL VALUE FIELD WITH STARS 
11. 11 OAIS 1116 RB 408 
57 06 OAIB 1117 30S: INCL R7 DEF INED-STACK VALUE | 
00000000'EF 47 0S A6 DO OAID 1118 MOVL SYMSL _VAL(R6), L“MACSAL _VALSTACKER7 
04 9A OA26 1119 MOVZBL #4,RO- SLIST LONGWORD VALUE | 
F504" 30 OA29 1120 BSBW  MACSLIST_BYT_O 
5A BEDO OA2C 111 40S: POPL RIC “RESTORE POINTER 
50 09 A6 3C OAZF 11 : MOVZWL SYMSW FLAG(RG) .RO :GET SYMBOL FLAGS | 
04 50 —01 1 OA33 11 BBC A Hy WEAK ,RO,50 ;BRANCH IF NOT WEAK 
6A 57 8F 90 OA37 1124 MOVB Ai /70(R R10) SYES=-FLAG IT | 
0950 04 €0 OA B 1125 50$: BBS aSYRSY “ABS ,RO,60$ [BRANCH IF ABSOLUTE SYMBOL | 
05 50 00 €1 OASE u 6 BBC #SYMSVDEF .RO,60$ [NO=-BRANCH IF DEFINED | 
ones 1 : : SYMBOL IS RELOCATABLE AND DEFINED | 
01 AA 52 8F 90 Gad 1130 MOVB = #*A/R/,1(R10) :FLAG RELOCATABLE | 
05 50 02 €1 OAdB 1131 60S: BBC #SVMSV. LOBL ,RO,70$ ‘BRANCH IF NOT GLOBAL SYMBOL | 
02 AA 47 af 0 OA4C 11 ; MOVB A/G/72¢R SYES=-FLA 
05 50 03 €1 OAS1 1133 708: BBC astMey’ XTRN,RO, 80S BRANCH IF NOT EXTERNAL 
03 AA 58 8F 90 OA5S 1134 MOVB #*A/X/7 YES==FL | 
05 5 A fi ASA 1135 80S: BBC #SYMSV_ODBG,RO,90$ {BRANCH IF NO DEBUG OUTPUT FOR SYMBOL | 
04 AA 44 BF 9 Ae 11 : MOVB #*A/D/74(R16) * YES=-F AG IT | 
D B3 OA63 1137 908: BITW HS “DEF! SYMSM_ GLOBL SiMEA EXTRN,RO ; 
5 12 0A66 1138 BNEQ 1008 F DEFINED, GLOBAL OR EXTERNAL 
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v04=0 PRINT SYMBOL INFORMATION FOR ONE SYMBOL 5=SEP=1984 01:48:10 ERACRO SRCJF INISH.MAR; 1 £19) | 
} 
05 AA 55 BF 20 A6b8 1139 MOVB Waals 5(R10) :NO=-MARK AS UNDEFINED 
SA C Ag 1140 100$:  ADDL2 :MOVE TO PSECT SPO | 
00000090" EF A D0 A70 (1141 MOVL R10; LP macScL LIST_PTR i STORE POINT | 
0 E A? 1146 BBS SYM$V_ABS,RO,110S ‘BRANCH IF ABSOLUTE | 
0° OC A6 SA OAZB 114 MOVZBL ie Veta che) );RO :GET SEGMENT N NUMBER | 
OA 13 ATF 1164 BEQL 05$ :DON 'T FIDDLE WITH THE ABS PSECT. | 
EO OAB1 1145 BBS asym HAS THE BLAN K PSECT BEEN FILTERED OUT? 
02 00000009" GF A83 1146 BP eECTSOLANK#SYMSW _FLAG.105$ : BRANC NOT. 
50 07 OA8D 114 DECL ; SYES, ADJUST THE PSECT# IN SYMBOL TABLE. 
57 D6 OABB 1148 105$: INCL ; STACK | 
00000000'EF47 50 DO OA8D 1149 MOVL RO, L“MACSAL_VALSTACKCR7] ;.. 
50.01, 9A 0A93 1150 MOVZBL ;LiST ONE BYTE 
F565" 30 OA9B 1151 BSBW MACSLIST_BYT_O ia 
OOOOOOOO'EF 8E& 28 C1 QAI 1136 110$: ADDL3 #40,(SP)*,L*MACSGL_LIST bin’: Figure new pointer and store it 
B 2A €1 OAA3 115 C #FLGSV_SYMOCOL, (R17) , 120s : eonth 14 net 2 column Listing | 
QOO00000'EF 12 C0 AA 1134 ica ADDL2 #18,L*MACSGL_LIST_PTR ; Allow for Larger symbol name 
07CO BF BA OAAE 1156 POPR #*M<R6,R7,R8,R9,R10>  ;RESTORE REGS | 
05 OABe 1157 RSB 
OABS 1158 
OAB3 1159 MACSLIST_INIT: | 
50 00000000'EF 9& OAB3 1160 MOVAB L“MACS$AB_LST_END,RO :POINT TO BUFFER 
00000000°EF 50 DO OABA 1161 MOVL, RO. L‘MACSGL_CIST-PTR — :SET POINTER 
60 0084 8F 20 6€ 00 2C OAC! 116¢ MOVCS #0,(SP),#*A7 /,#732,(RO):FILL BUFFER WITH BLANKS | 
05 OAC9 116 RSB | 
OACA 1164 
OACA 1165 END | 
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Symbol table -SEP=1984 01:48:10 (CMACRO.SRCIJFINISH.MAR;1 19) | Sy 
PSCSM_NOSHR = FFFFFFDE SYMSL_VAL 905 FL 
PSC$M_NOVEC = FFFFFDFF SYMSM_ABS = 1 | FL 
PSCSM_NOWRT = pPPrreee SYMSM_ASN = 10 | FL 
C$M_OVR = 00000 0% SYMSM_CRFO s FL 
PSCSM_PAGE = 99 6 0 SYM$M_DEBUG s FL 
CSM~PIC = 00000001 YMSM_DEF = 1 FL 
PSC$M_QUAD = 00004 SYMSM_DELMAC = 00000200 FL 
CSMRD = 200000 SMTEPT = 80000800 | FL 
PSCSM_REL = 000000 SYMSM_EXTRN = 0000000 FL 
PSCSM_SHR = 00000020 SYM$M_GLOBL = 00000004 FL 
PSCSM_USR = FEFFFFFD SYMSM_LOCAL = 0000004 FL 
PSCSM_VEC s 900008 9 SYM$M_ODB = 0 40 FL 
PSCS$M_WORD = 000044 SM~REF = 0 FL 
SM_WRT = 00000180 SYMSM_ =RELPSECT = 00000800 FL 
PSC$S_ALIGNMENT = 00000004 YMSM_ SUP = 30008008 | FL 
PSC$V_ALIGNFLG = 0000000€ SY MSRTUEAK = 9600000 FL 
C$V~ALIGNMENT = 0000000A SYMSM_XCRF = 00001000 FL 
Cv XE = 00000006 SYMS$V_ABS = 00000004 FL 
$V~GBL = 00000004 SYMSV_ASN = 00000008 FL 
PSC$V"LIB = 00000001 SYMSV_CRFO = 00000000 FL 
PSC$V_OVR = 00000002 SYM$V_DEBUG = 00000005 FL 
PSC$V_PIC = 00000000 SYMSV_DEF = 00000000 FL 
PSCSV_RD = 00000007 SYM$V~DELMAC = 00000009 | FL 
PSC$V_REL = 00000003 SYMSV_EPT = 00000009 FL 
PSC$V_SHR = 00000005 SYMSV_EXTRN = 00000003 | FL 
PSCS$V_VEC = 00000009 SYM$V_GLOBL = 00000002 | FL 
PSCSV_WRT = 00000008 SYM$V_LOCAL = 00000006 FL 
C$w_FLAG 00000009 SYM$V_ODBG = 0000000A | FL 
PSC$W-OPTIONS 0000000D SYMSV_REF = 00000007 FL 
PSECTSBLANK eeereere =X 04 SYM$SV_RELPSECT = 00000008 FL 
SMAIN eeeeenee§ =X 04 SYMS$V_SUPR = 0000000€ FL 
PSECT_OPT_MATCH 0000097F R 04 SYMSV_WEAK = 00000001 FL 
“BINARY = 00000000 SYMSV_XCRF = 0000000C FL 
RDXS$V_DEC IMAL = 0000000 SYMSW-FLAG 00000009 FL 
V_DOUBLE = 0000000 SYSSABJWSL eeeeeeee GX 04 FL 
V~FLOAT = 00000004 SYS$F AOL aeeeeeee GX 04 FL 
ROX$V_GFLOAT z 90000006 TAB = 00000009 FL 
DX$V_HEX = 0000000 TIRSC_STA_PB = 00000004 FL 
RDX$V_HFLOAT = 00000007 TIRSC_STA_PL = 00000006 FL 
RDX$V_OCTAL = 00000001 TIRSC_STO_L = 00000016 FL 
EGS_PC = 0000000F TIRSC-STO_LW = 00000016 FL 
EMI = 000000 TIRSC"STO-PIDR = 90000018 | FL 
ORT_EXIT 000000F5 R 04 x1 = 0000003 FL 
ORT-LISTS 9000 3 a 04 x2 = 00080000 FL 
TBSR_PG_MISS = A FL 
SYM$B_NARE 38 0004 FL 
SYM$B_SEG 00 90 C FL 
SYM$B_ TOKEN 00 FL 
SYMSF _DEF z FL 
SYMSF REL = FL 
SYMSF_UNI = 4 FL 
SYMSF VALIDATE = 00000010 FL 
SYMSF_ WEAK s 9 ‘4 FL 
SYM$K-BLKSIZ D FL 
SYMSK_MAXLEN = 1F FL 
SYMS$K— TWOCOL = 10 FL 
SYMS$L_LINK 000000 FL 
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Psect synopsis “SEP=1984 01:48:10 (CMACRO.SRCJFINISH.MAR; 1 (19) 
peewee n eww ences eoeesd 
! Psect synopsis ! 
¢ronee amon anew e > 
PSECT name Allocation PSECT No. Attributes 
Ss 00000000 < 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
- BLANK . BRR ee ( g.} 4 ( 1.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
$$ Bob oG ( 375.) ¢ ( ¢-3 NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
MACSRW_DATA 0000008 §-} 05 ¢ 3.) NOPIC USR CON REL LCL NOSHR NOEXE RD WRT NOVEC LONG | 
MACSRO_CODE_P3 QOOOOACA ( 2762.) 04 ( 4.) NOPIC USR CON REL GBL NOSHR EXE RD NOWRT NOVEC LONG | 
$e mr wmonw nore meen n ew mraawoeoe + 
: Performance indicators H | 
| 
Phase Page faults CPU Time Elapsed Time 
Initialization 29 00:00:00.07  — 00:00:00.96 | 
Command processing 106 00:00:00.35 SE 39 | 
Pass 428 eS Pe RES 0:00:4 3 
Symbol table sort i) 00:00:01.28 00:00:05.5 | 
Pass 2 237 88005: 38 00:00:13.49 
Symbol table output 51 00:00:00.25 00:00:01.32 
Psect synopsis output 2 00:00:00.02 00:00:00.0) | 
Cruss-reference output 2 00:00:00.00 00:00:00.00 | 
Assembler run totals 85 00:00:14.88 00:01:08.29 | 


The working set Limit was 1800 pages. : 

88811 bytes (174 pages) of virtual memory were used to buffer the intermediate code. 

There were 70 pages of symbol table space allocated to hold 1272 non-local and 115 local symbols. 
1165 source Lines were read in Pass 1, produc ine 36 object records in Pass 2. 

43 pages of virtual memory were used to define 42 macros. 


Gee wwme waren ane ar aewmonon acon + 


Macro Library name Macros defined 
-8255$DUA28 : CMACRO.OBJJMACRO.MLB; 1 8 
$255$DUA28:CSYSLIBJSTARLET.MLB; 2 10 
TOTALS (all Libraries) 18 


1364 GETS were required to define 18 macros. 
There were no errors, warnings or information messages. | 
MACRO/LIS=LIS$:F INISH/OBJ=OBJ$:F INISH MSRC$:F INJSH/UPDATE=(ENHS:F INISH) +LIB$:MACRO/LIB 


eee 
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